home *** CD-ROM | disk | FTP | other *** search
/ FishMarket 1.0 / FishMarket v1.0.iso / fishies / 476-500 / disk_499 / diglib / diglib.lzh / source / GSIVIS.for < prev    next >
Text File  |  1991-04-13  |  411b  |  17 lines
  1.         INTEGER*2 FUNCTION GSIVIS(X,Y)
  2.         IMPLICIT NONE
  3.         REAL*4 X,Y
  4. C
  5.         INCLUDE DIGLIB$KOM:GCCLIP.PRM
  6. C
  7. C
  8.         GSIVIS = 0
  9. D    WRITE(9,123)X,Y,XCM0,XCM1,YCM0,YCM1
  10. D123     FORMAT(1X,"GSIVIS",6F6.2)
  11.         IF (X .LT. XCM0) GSIVIS = 1
  12.         IF (X .GT. XCM1) GSIVIS = GSIVIS + 2
  13.         IF (Y .LT. YCM0) GSIVIS = GSIVIS + 4
  14.         IF (Y .GT. YCM1) GSIVIS = GSIVIS + 8
  15.         RETURN
  16.         END
  17.